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-- Zapper.mesa 

-- Edited by Sandman on April 12. 1978 5:02 PM 

DIRECTORY 

AltoDefs: FROM "aUodefs", 
BcdDefs: FROM "bcddefs". 
ImageDefs: FROM "imagedefs", 
InlineDefs: FROM "in! inedef s" , 
lODefs: FROM "iodefs", 
SegmentDefs: FROM "segmentdef s" , 
StringDefs: FROM "stringdef s" , 
SymDefs: FROM "symdefs", 
SystemDefs: FROM "systemdef s" , 
TimeOefs: FROM "timedefs"; 

DEFINITIONS FROM lODefs, SegmentDefs; 

Zapper: PROGRAM 

IMPORTS lODefs, SegmentDefs, StringDefs, SystemDefs, TimeDefs 

BEGIN 

name: STRING <- [40]; 
filename: STRING ^ [40]; 
file: FileHandle; 
c: CHARACTER; 

BcdBase: TYPE = POINTER TO BcdDefs. BCD; 

Confirm: PROCEDURE RETURNS [BOOLEAN] - 
BEGIN OPEN lODefs; 
WriteString[" [confirm]"]; 
DO 

SELECT ReadChar[] FROM 
CR => RETURN[TRUE]; 
DEL => 
BEGIN 

WriteString[" XXX"]; 
RETURN[FALSE]; 
END; 
ENDCASE => WriteChar['?]; 
ENDLOOP; 
END; 

DisplayVersionStamp: PROCEDURE [stamp: BcdDefs. VersionStamp] ■ 
BEGIN OPEN lODefs; 
date: STRING ♦- [40]; 

TimeDefs.AppendDayTime[date, TimeDefs.UnpackDT[ stamp. time]]; 

WriteString[date]; 

WriteString[", "]; 

WriteOctal[ stamp. net]; 

WriteChar['j§']; 

Wr i teOct a 1 [stamp. host]; 

WriteChar['/Sf]; 

IF stamp. zapped THEN WriteStr ing[" zapped! I"]; 

END; 

FileZapper: PROCEDURE [bed: BcdBase] - 
BEGIN OPEN BcdDefs, StringDefs; 
list: BOOLEAN; 
fti: FTIndex; 

ftb: CARDINAL = LOOPHOLE[bcd+bcd. f tOf f set]; 
filename: STRING ^ [40]; 
ss: SubStringDescriptor ; 
DO 

WriteString["f ilename: "]; 
IODefs.ReadID[f ilename]; 
IF filename. length « THEN RETURN; 
list <- filename, length « 1 AND filename[0] ■ '?; 
ss <-[base: filename, offset: 0, length: filename. length]; 
FOR fti ^ FIRST[FTIndex]. f ti+SIZE[FTRecord] 
UNTIL fti « bcd.ftLimit DO 
OPEN f: ftb + fti; 
IF list THEN 
BEGIN 
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WriteChar[CR]; 

WriteChar[SP]; WriteChar[SP] ; 
WriteName[bccl, f.name]; 
END 
ELSE 

IF SameName[bcd,f .name.Qss] THEN 
BEGIN 

WriteString[" "]; 
DisplayVersionStamp[f .version]; 
IF Confirm[] THEN 

BEGIN f. version. zapped <- TRUE; 
WriteString[" ... is being zapped."]; END; 
EXIT; 
END; 
REPEAT 

FINISHED «> IF -list THEN WriteString[" . . . can't find filel"]; 
ENDLOOP; 
WriteChar[CR]; 
ENDLOOP; 
END; 

FindBcd: PROCEDURE [file: FileHandle] RETURNS [seg:Fi1 eSegmentHandle] - 
BEGIN 

pages: AT toDef s .PageCount; 
bed: BcdBase; 

seg *~ NewFi1eSegment[f ile, 1, 1, Read+Write]; 
Swapln[seg]; 

bed «- FileSegmentAddress[seg]; 
IF (pages <- bcd.nPages) # 1 THEN 

BEGIN 

Un1ock[seg]; 

MoveFi1eSegment[seg, 1, pages]; 

Swapln[seg]; 

bed <- FileSegnientAddress[seg]; 

END; 
IF bcd.versionident ff BedDef s .VersionID THEN 

BEGIN 

WriteString[" bad version ID "]; 

Wr i teDee imal [bed. vers ion i dent]; 

Un1oek[seg]; 

DeleteFileSegment[seg]; 

RETURN[NIL] 

END; 
END; 

FindSymbols: PROCEDURE [file: FileHandle] RETURNS [seg : FileSegmentHandl e] - 
BEGIN 

bed: BedBase; 
mtb: CARDINAL; 

mti: BcdDefs.MTIndex = FIRST[BcdDef s .MTIndex] ; 
pages: Al toDef s . PageCount; 
bedseg: FileSegmentHandle; 

bedseg <- NewFi1eSegnient[f ile, 1, 1, Read+Write]; 

Swapln[bcdseg]; 

bed ♦- Fi1eSegmentAddress[bedseg]; 

IF (pages ♦- bed.nPages) If 1 THEN 

BEGIN 

Un1oek[bcdseg]; 

MoveFi1eSegment[bcdseg, 1, pages]; 

Swapln[bcdseg]; 

bed <- Fi1eSegmentAddress[bcdseg]; 

END; 
IF bcd.versionident ff BedDef s .VersionID THEN 

BEGIN 

WriteString[" bad version ID "]; 

Wri teDec imal [bed. vers ioni dent] ; 

Unloek[bcdseg] ; 

DeleteFneSegnient[bcdseg]; 

RETURN[NIL] 

END; 
IF bcd.nModules iff 1 THEN 

BEGIN 

WriteString[" too many modules: "]; 

Wri teDec imal [bed . nModules] ; 

Unloek[bcdseg]; 
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D0leteFi1eSegm0nt[bcdseg]; 

RETURN[NIL3 

END; 
mtb <- LOOPHOLE[bcd,CARDINAL]+bcd.mtOffset; 
seg <- FindSegment[bcdseg, (mtb+mti) . sseg , FALSE]; 
IF seg # NIL THEN Swapln[seg]: 
Umock[bcdseg]; 
D8leteFileSegment[bcdseg]; 
END; 

FindSegment: PROCEDURE [ 

seg: FileSegmentHandle, sgi : BcdDef s .SGIndex, long: BOOLEAN] 

RETURNS [FileSegmentHandle] ■ 

BEGIN OPEN BcdDefs; 

file: SegmentDefs.FileHandle; 

bed: POINTER TO BCD <- FileSegmentAddress[seg]; 

ssb: NameString = LOOPHOLE[bcd+bcd. ssOff set]; 

sgh: SGHandle « LOOPHOLE[bcd+bcd . sgOff set, CARDINAL]+sgi ; 

IF sgh. file « FTNull THEN RETURN[NIL] 

ELSE IF sgh. file « FTSelf THEN file ^ seg. file 

ELSE 

BEGIN 

fth: FTHandle « LOOPHOLE[bcd+bcd.f tOffset , CARDINAL]+sgh.f ile; 

name: STRING <- SystemDef s .AllocateHeapString[ssb.size[f th.name]+4]; 

ss: StringDef s .SubStringDescriptor ♦■ 

[0ssb . string, fth. name, ssb . size[fth .name]]; 

StringDefs .AppendSubString[name, 6ss]; 

CheckForE X tens ion[ name, " .bcd"L]; 

file *- NewFile[name, Def aul tAccess, DefaultVersion]; 

SystemDef s . FreeHeapString[name]; 

END; 
RETURN[NewFileSegment[file, sgh. base, 

sgh. pages + (IF long THEN sgh.extraPages ELSE 0), Read]]; 
END; 

CheckForExtension: PROCEDURE [name, ext: STRING] ■ 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .name. length) DO 

IF name[i] " ' • THEN RETURN; 

ENDLOOP; 
StringDef s. Appends tring[ name, ext] ; 
RETURN 
END; 

SameName: PROCEDURE [bed: BcdBase, n: BcdDef s .NameRecord, name: StringDef s. Substring] 
RETURNS [BOOLEAN] - 
BEGIN OPEN StringDefs; 

ssb: BcdDefs. NameString « LOOPHOLE[bcd+bcd.ssOff set]; 
ss: SubStringDescriptor ♦- 

[base: @ssb. string, offset: n. length: ssb.si20[n]]; 
RETURN[StringDefs.EquivalentSubStrings[@ss,name]]; 
END; 

WriteName: PROCEDURE [bed: BcdBase, n: BcdDef s .NameRecord] • 
BEGIN OPEN lODefs; 
i: CARDINAL; 

ssb: BcdDefs. NameString « LOOPH0LE[bcd+bcd. ssOff set]; 
ss: STRING « @ssb. string; 
FOR i IN [n . . n+ssb . size[n]) DO 
WriteChar[ss[i]]; 
ENDLOOP; 
END; 

ZapFiles: PROCEDURE [file: FileHandle] ■ 
BEGIN 

bcdseg: FileSegmentHandle; 
bcd:BcdBase; 

bcdseg +- FindBcd[f ile]; 
IF bcdseg ^ NIL THEN 

BEGIN 

bed <- FileSegmGntAddress[bcdseg]; 

Fi leZapp0r[bcd] ; 

Unlock[bcdseg]; 

DeleteFil0Segment[bedseg]; 
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END; 
END; 

ZapHeader: PROCEDURE [file: FileHandle] « 
BEGIN 

seg: FileSegmentHandle; 
bed: BcdBase; 

seg <r NewFileSegmentCfile, 1, 1, Read+Write]; 
Swapln[seg] ; 

bed ^ Fi1eSegmentAddress[seg]; 
WriteString["Header: "]; 
SELECT bcd.versionident FROM 
BedDefs.VersionID ■> 
BEGIN 

DisplayVersionStamp[bcd. vers ion]; 
IF Confirm[] THEN 

BEGIN bed. version. zapped ♦- TRUE; 
WriteString[" ... is being zapped."] END; 
END; 
ENDCASE «> 
BEGIN 

WriteString[" bad version ID "]; 
WriteDecimal [bcd.versionident] 
END; 
Unlock[seg]; 
De1eteFi1eSegment[seg]; 
END; 

ZapSymbols: PROCEDURE [file: FileHandle] ■ 
BEGIN 

seg: FileSegmentHandle; 
stHeader: POINTER TO SymDef s.STHeader; 
seg <- FindSymbols[f ile]; 
IF seg ff NIL THEN 

BEGIN 

StHeader <- FileSegmentAddress[seg]; 

WriteString["Symbol Table: "]; 

Display\/ersionStamp[ StHeader. version]; 

IF Confirm[] THEN 

BEGIN StHeader. version. zapped ^ TRUE; 
WriteString[" ... is being zapped."]; END; 

Unlock[seg]; 

DeleteFileSegment[seg]; 

END; 
END; 



-- mam program 

WriteLine["Mesa Bed Zapper Use With Cautionl 1 1 1 1 I "]; 

DO 

BEGIN ENABLE Rubout -> 
BEGIN 

WriteString[" XXX"]; 
GOTO repeatloop: 
END; 
WriteChar[CR]; 
WriteString["Zap: "]; 
IODefs.ReadID[name]; 
IF name.length«0 THEN EXIT; 
filename. length ^ 0; 

StringDef s . AppendString[f ilename, name]; 
CheckForExtension[f ilename, " .bed"]; 
file <- NewFile[f ilename, Read+Write, OldFileOnly 
1 FileNameError «> 
BEGIN 

WriteString[" IFile not found"]; 
GOTO repeatloop; 
END]; 
LockFile[file]; 
DO ENABLE Rubout -> 
BEGIN 

WriteString[" XXX"]; 
CONTINUE 
END; 
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WriteChar[CR]; 

WriteString["header, symbols, files, or quit? [H,S,F,Q] "]; 

c ^ IODefs.ReadChar[]: WriteChar[CRJ j 

SELECT c FROM 

'h.'H -> ZapHeader[file]; 
's. 'S ■> ZapSymbols[f ile]; 
'f,'F -> ZapFnes[file]; 
'q,'Q. CR -> EXIT; 
ENDCASE -> WriteChar['?]; 
ENDLOOP; 

UnlockFile[file]; 
Re1easeFne[f ile]; 
EXITS 

repeatloop ■> NULL; 
END; 

WriteChar[CR]; 
ENDLOOP; 

ImageDefs.StopMesa[]; 
END. 



